Suoni - gestione

per suono.wav.esegui :suono
se non cosa? "audio [audio.off]
se non :audio [stop]
suoni.attivi
as "suono.completo (parola :suono alfa.punto "wav)
verifica file.esiste :suono.completo
se_falso [stop]
mci.play1 :suono.completo
fine

per suono.rmi.esegui :suono
rmi.play :suono
fine

per accompagna.con :musica
as "nome.completo (parola :musica ".wav)
suoni mci.play2 :nome.completo
fine

per suono.chiudi
mci.chiudi
fine

suono.chiudi
suono.rmi.esegui "Mozart